home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 551-575 / disk_556 / scheme2c / scheme-src.lzh / scrt / scdebug.c < prev    next >
C/C++ Source or Header  |  1991-10-11  |  52KB  |  1,462 lines

  1.  
  2. /* SCHEME->C */
  3.  
  4. #include <objects.h>
  5.  
  6. DEFSTRING( t1598, "~%***** INTERRUPT *****~%", 25 );
  7. DEFSTATICTSCP2( c1566, t1598 );
  8. DEFSTRING( t1599, "ERROR", 5 );
  9. DEFSTATICTSCP2( c1560, t1599 );
  10. DEFSTRING( t1600, ">> ", 3 );
  11. DEFSTATICTSCP2( c1559, t1600 );
  12. DEFSTRING( t1601, "***** ~a ", 9 );
  13. DEFSTATICTSCP2( c1552, t1601 );
  14. DEFSTATICTSCP( c1540 );
  15. DEFSTRING( t1603, "ENV-19", 6 );
  16. DEFSTATICTSCP( t1602 );
  17. DEFSTRING( t1605, "ENV-18", 6 );
  18. DEFSTATICTSCP( t1604 );
  19. DEFSTRING( t1607, "ENV-17", 6 );
  20. DEFSTATICTSCP( t1606 );
  21. DEFSTRING( t1609, "ENV-16", 6 );
  22. DEFSTATICTSCP( t1608 );
  23. DEFSTRING( t1611, "ENV-15", 6 );
  24. DEFSTATICTSCP( t1610 );
  25. DEFSTRING( t1613, "ENV-14", 6 );
  26. DEFSTATICTSCP( t1612 );
  27. DEFSTRING( t1615, "ENV-13", 6 );
  28. DEFSTATICTSCP( t1614 );
  29. DEFSTRING( t1617, "ENV-12", 6 );
  30. DEFSTATICTSCP( t1616 );
  31. DEFSTRING( t1619, "ENV-11", 6 );
  32. DEFSTATICTSCP( t1618 );
  33. DEFSTRING( t1621, "ENV-10", 6 );
  34. DEFSTATICTSCP( t1620 );
  35. DEFSTRING( t1623, "ENV-9", 5 );
  36. DEFSTATICTSCP( t1622 );
  37. DEFSTRING( t1625, "ENV-8", 5 );
  38. DEFSTATICTSCP( t1624 );
  39. DEFSTRING( t1627, "ENV-7", 5 );
  40. DEFSTATICTSCP( t1626 );
  41. DEFSTRING( t1629, "ENV-6", 5 );
  42. DEFSTATICTSCP( t1628 );
  43. DEFSTRING( t1631, "ENV-5", 5 );
  44. DEFSTATICTSCP( t1630 );
  45. DEFSTRING( t1633, "ENV-4", 5 );
  46. DEFSTATICTSCP( t1632 );
  47. DEFSTRING( t1635, "ENV-3", 5 );
  48. DEFSTATICTSCP( t1634 );
  49. DEFSTRING( t1637, "ENV-2", 5 );
  50. DEFSTATICTSCP( t1636 );
  51. DEFSTRING( t1639, "ENV-1", 5 );
  52. DEFSTATICTSCP( t1638 );
  53. DEFSTRING( t1641, "ENV-0", 5 );
  54. DEFSTATICTSCP( t1640 );
  55. DEFSTRING( t1642, "ENV-0", 5 );
  56. DEFSTATICTSCP( c1538 );
  57. DEFSTRING( t1643, " in ", 4 );
  58. DEFSTATICTSCP2( c1515, t1643 );
  59. DEFSTRING( t1644, " ...", 4 );
  60. DEFSTATICTSCP2( c1514, t1644 );
  61. DEFSTRING( t1645, "Argument is not a STRING: ~s", 28 );
  62. DEFSTATICTSCP2( c1512, t1645 );
  63. DEFSTRING( t1646, "STRING-LENGTH", 13 );
  64. DEFSTATICTSCP( c1511 );
  65. DEFSTRING( t1647, " ...)", 5 );
  66. DEFSTATICTSCP2( c1489, t1647 );
  67. DEFSTRING( t1648, "(", 1 );
  68. DEFSTATICTSCP2( c1488, t1648 );
  69. DEFSTATICTSCP( c1484 );
  70. DEFSTRING( t1650, "LOOP [inside EXEC]", 18 );
  71. DEFSTATICTSCP2( t1649, t1650 );
  72. DEFSTRING( t1652, "SCEVAL_INTERPRETED-PROC", 23 );
  73. DEFSTATICTSCP2( t1651, t1652 );
  74. DEFSTRING( t1653, "~s is not breakpointed", 22 );
  75. DEFSTATICTSCP2( c1373, t1653 );
  76. DEFSTRING( t1654, "DOUNBPT", 7 );
  77. DEFSTATICTSCP( c1368 );
  78. DEFSTRING( t1655, "UNBPT", 5 );
  79. DEFSTATICTSCP( c1307 );
  80. DEFSTRING( t1656, "~s- ", 4 );
  81. DEFSTATICTSCP2( c1306, t1656 );
  82. DEFSTRING( t1657, "RESULT", 6 );
  83. DEFSTATICTSCP( c1305 );
  84. DEFSTRING( t1658, "~s -returns- ~s", 15 );
  85. DEFSTATICTSCP2( c1304, t1658 );
  86. DEFSTRING( t1659, "READ-EVAL-PRINT", 15 );
  87. DEFSTATICTSCP2( c1290, t1659 );
  88. DEFSTRING( t1660, "ENV", 3 );
  89. DEFSTATICTSCP( c1289 );
  90. DEFSTRING( t1661, "PROMPT", 6 );
  91. DEFSTATICTSCP( c1288 );
  92. DEFSTRING( t1662, "~%~s -calls  - ~s", 17 );
  93. DEFSTATICTSCP2( c1287, t1662 );
  94. DEFSTRING( t1663, "HEADER", 6 );
  95. DEFSTATICTSCP( c1286 );
  96. DEFSTATICTSCP( c1246 );
  97. DEFSTRING( t1665, "BPT-PROCS", 9 );
  98. DEFSTATICTSCP( t1664 );
  99. DEFSTRING( t1667, "X", 1 );
  100. DEFSTATICTSCP( t1666 );
  101. DEFSTRING( t1669, "CAR", 3 );
  102. DEFSTATICTSCP( t1668 );
  103. DEFSTRING( t1671, "LAMBDA", 6 );
  104. DEFSTATICTSCP( t1670 );
  105. DEFSTRING( t1673, "MAP", 3 );
  106. DEFSTATICTSCP( t1672 );
  107. DEFSTRING( t1674, "LIST", 4 );
  108. DEFSTATICTSCP( c1231 );
  109. DEFSTRING( t1675, "DOBPT", 5 );
  110. DEFSTATICTSCP( c1230 );
  111. DEFSTRING( t1676, "APPLY", 5 );
  112. DEFSTATICTSCP( c1229 );
  113. DEFSTRING( t1677, "Illegal arguments", 17 );
  114. DEFSTATICTSCP2( c1226, t1677 );
  115. DEFSTRING( t1678, "BPT", 3 );
  116. DEFSTATICTSCP( c1210 );
  117. DEFSTRING( t1679, "~s is not traced", 16 );
  118. DEFSTATICTSCP2( c1195, t1679 );
  119. DEFSTRING( t1680, "DOUNTRACE", 9 );
  120. DEFSTATICTSCP( c1190 );
  121. DEFSTRING( t1681, "Argument not a PAIR: ~s", 23 );
  122. DEFSTATICTSCP2( c1175, t1681 );
  123. DEFSTRING( t1682, "SET-CDR!", 8 );
  124. DEFSTATICTSCP( c1174 );
  125. DEFSTRING( t1683, "UNTRACE", 7 );
  126. DEFSTATICTSCP( c1127 );
  127. DEFSTRING( t1684, "==> ", 4 );
  128. DEFSTATICTSCP2( c1126, t1684 );
  129. DEFSTRING( t1685, "~a~a~s~%", 8 );
  130. DEFSTATICTSCP2( c1113, t1685 );
  131. DEFSTRING( t1686, "~a~s~%", 6 );
  132. DEFSTATICTSCP2( c1082, t1686 );
  133. DEFSTRING( t1687, "~s is already traced", 20 );
  134. DEFSTATICTSCP2( c1073, t1687 );
  135. DEFSTRING( t1688, "Argument is not a PROCEDURE name", 32 );
  136. DEFSTATICTSCP2( c1072, t1688 );
  137. DEFSTRING( t1689, "QUOTE", 5 );
  138. DEFSTATICTSCP( c1057 );
  139. DEFSTRING( t1690, "DOTRACE", 7 );
  140. DEFSTATICTSCP( c1056 );
  141. DEFSTRING( t1691, "F", 1 );
  142. DEFSTATICTSCP( c1055 );
  143. DEFSTRING( t1692, "LAMBDA", 6 );
  144. DEFSTATICTSCP( c1054 );
  145. DEFSTRING( t1693, "MAP", 3 );
  146. DEFSTATICTSCP( c1053 );
  147. DEFSTATICTSCP( c1052 );
  148. DEFSTRING( t1695, "TRACED-PROCS", 12 );
  149. DEFSTATICTSCP( t1694 );
  150. DEFSTRING( t1696, "TRACE", 5 );
  151. DEFSTATICTSCP( c1044 );
  152.  
  153. static void  init_constants()
  154. {
  155.         TSCP  X2, X1;
  156.  
  157.         c1540 = EMPTYLIST;
  158.         t1602 = STRINGTOSYMBOL( U_TX( ADR( t1603 ) ) );
  159.         c1540 = CONS( t1602, c1540 );
  160.         t1604 = STRINGTOSYMBOL( U_TX( ADR( t1605 ) ) );
  161.         c1540 = CONS( t1604, c1540 );
  162.         t1606 = STRINGTOSYMBOL( U_TX( ADR( t1607 ) ) );
  163.         c1540 = CONS( t1606, c1540 );
  164.         t1608 = STRINGTOSYMBOL( U_TX( ADR( t1609 ) ) );
  165.         c1540 = CONS( t1608, c1540 );
  166.         t1610 = STRINGTOSYMBOL( U_TX( ADR( t1611 ) ) );
  167.         c1540 = CONS( t1610, c1540 );
  168.         t1612 = STRINGTOSYMBOL( U_TX( ADR( t1613 ) ) );
  169.         c1540 = CONS( t1612, c1540 );
  170.         t1614 = STRINGTOSYMBOL( U_TX( ADR( t1615 ) ) );
  171.         c1540 = CONS( t1614, c1540 );
  172.         t1616 = STRINGTOSYMBOL( U_TX( ADR( t1617 ) ) );
  173.         c1540 = CONS( t1616, c1540 );
  174.         t1618 = STRINGTOSYMBOL( U_TX( ADR( t1619 ) ) );
  175.         c1540 = CONS( t1618, c1540 );
  176.         t1620 = STRINGTOSYMBOL( U_TX( ADR( t1621 ) ) );
  177.         c1540 = CONS( t1620, c1540 );
  178.         t1622 = STRINGTOSYMBOL( U_TX( ADR( t1623 ) ) );
  179.         c1540 = CONS( t1622, c1540 );
  180.         t1624 = STRINGTOSYMBOL( U_TX( ADR( t1625 ) ) );
  181.         c1540 = CONS( t1624, c1540 );
  182.         t1626 = STRINGTOSYMBOL( U_TX( ADR( t1627 ) ) );
  183.         c1540 = CONS( t1626, c1540 );
  184.         t1628 = STRINGTOSYMBOL( U_TX( ADR( t1629 ) ) );
  185.         c1540 = CONS( t1628, c1540 );
  186.         t1630 = STRINGTOSYMBOL( U_TX( ADR( t1631 ) ) );
  187.         c1540 = CONS( t1630, c1540 );
  188.         t1632 = STRINGTOSYMBOL( U_TX( ADR( t1633 ) ) );
  189.         c1540 = CONS( t1632, c1540 );
  190.         t1634 = STRINGTOSYMBOL( U_TX( ADR( t1635 ) ) );
  191.         c1540 = CONS( t1634, c1540 );
  192.         t1636 = STRINGTOSYMBOL( U_TX( ADR( t1637 ) ) );
  193.         c1540 = CONS( t1636, c1540 );
  194.         t1638 = STRINGTOSYMBOL( U_TX( ADR( t1639 ) ) );
  195.         c1540 = CONS( t1638, c1540 );
  196.         t1640 = STRINGTOSYMBOL( U_TX( ADR( t1641 ) ) );
  197.         c1540 = CONS( t1640, c1540 );
  198.         CONSTANTEXP( ADR( c1540 ) );
  199.         c1538 = STRINGTOSYMBOL( U_TX( ADR( t1642 ) ) );
  200.         CONSTANTEXP( ADR( c1538 ) );
  201.         c1511 = STRINGTOSYMBOL( U_TX( ADR( t1646 ) ) );
  202.         CONSTANTEXP( ADR( c1511 ) );
  203.         c1484 = EMPTYLIST;
  204.         c1484 = CONS( t1649, c1484 );
  205.         c1484 = CONS( t1651, c1484 );
  206.         CONSTANTEXP( ADR( c1484 ) );
  207.         c1368 = STRINGTOSYMBOL( U_TX( ADR( t1654 ) ) );
  208.         CONSTANTEXP( ADR( c1368 ) );
  209.         c1307 = STRINGTOSYMBOL( U_TX( ADR( t1655 ) ) );
  210.         CONSTANTEXP( ADR( c1307 ) );
  211.         c1305 = STRINGTOSYMBOL( U_TX( ADR( t1657 ) ) );
  212.         CONSTANTEXP( ADR( c1305 ) );
  213.         c1289 = STRINGTOSYMBOL( U_TX( ADR( t1660 ) ) );
  214.         CONSTANTEXP( ADR( c1289 ) );
  215.         c1288 = STRINGTOSYMBOL( U_TX( ADR( t1661 ) ) );
  216.         CONSTANTEXP( ADR( c1288 ) );
  217.         c1286 = STRINGTOSYMBOL( U_TX( ADR( t1663 ) ) );
  218.         CONSTANTEXP( ADR( c1286 ) );
  219.         c1246 = EMPTYLIST;
  220.         t1664 = STRINGTOSYMBOL( U_TX( ADR( t1665 ) ) );
  221.         c1246 = CONS( t1664, c1246 );
  222.         X1 = EMPTYLIST;
  223.         X2 = EMPTYLIST;
  224.         t1666 = STRINGTOSYMBOL( U_TX( ADR( t1667 ) ) );
  225.         X2 = CONS( t1666, X2 );
  226.         t1668 = STRINGTOSYMBOL( U_TX( ADR( t1669 ) ) );
  227.         X2 = CONS( t1668, X2 );
  228.         X1 = CONS( X2, X1 );
  229.         X2 = EMPTYLIST;
  230.         X2 = CONS( t1666, X2 );
  231.         X1 = CONS( X2, X1 );
  232.         t1670 = STRINGTOSYMBOL( U_TX( ADR( t1671 ) ) );
  233.         X1 = CONS( t1670, X1 );
  234.         c1246 = CONS( X1, c1246 );
  235.         t1672 = STRINGTOSYMBOL( U_TX( ADR( t1673 ) ) );
  236.         c1246 = CONS( t1672, c1246 );
  237.         CONSTANTEXP( ADR( c1246 ) );
  238.         c1231 = STRINGTOSYMBOL( U_TX( ADR( t1674 ) ) );
  239.         CONSTANTEXP( ADR( c1231 ) );
  240.         c1230 = STRINGTOSYMBOL( U_TX( ADR( t1675 ) ) );
  241.         CONSTANTEXP( ADR( c1230 ) );
  242.         c1229 = STRINGTOSYMBOL( U_TX( ADR( t1676 ) ) );
  243.         CONSTANTEXP( ADR( c1229 ) );
  244.         c1210 = STRINGTOSYMBOL( U_TX( ADR( t1678 ) ) );
  245.         CONSTANTEXP( ADR( c1210 ) );
  246.         c1190 = STRINGTOSYMBOL( U_TX( ADR( t1680 ) ) );
  247.         CONSTANTEXP( ADR( c1190 ) );
  248.         c1174 = STRINGTOSYMBOL( U_TX( ADR( t1682 ) ) );
  249.         CONSTANTEXP( ADR( c1174 ) );
  250.         c1127 = STRINGTOSYMBOL( U_TX( ADR( t1683 ) ) );
  251.         CONSTANTEXP( ADR( c1127 ) );
  252.         c1057 = STRINGTOSYMBOL( U_TX( ADR( t1689 ) ) );
  253.         CONSTANTEXP( ADR( c1057 ) );
  254.         c1056 = STRINGTOSYMBOL( U_TX( ADR( t1690 ) ) );
  255.         CONSTANTEXP( ADR( c1056 ) );
  256.         c1055 = STRINGTOSYMBOL( U_TX( ADR( t1691 ) ) );
  257.         CONSTANTEXP( ADR( c1055 ) );
  258.         c1054 = STRINGTOSYMBOL( U_TX( ADR( t1692 ) ) );
  259.         CONSTANTEXP( ADR( c1054 ) );
  260.         c1053 = STRINGTOSYMBOL( U_TX( ADR( t1693 ) ) );
  261.         CONSTANTEXP( ADR( c1053 ) );
  262.         c1052 = EMPTYLIST;
  263.         t1694 = STRINGTOSYMBOL( U_TX( ADR( t1695 ) ) );
  264.         c1052 = CONS( t1694, c1052 );
  265.         X1 = EMPTYLIST;
  266.         X2 = EMPTYLIST;
  267.         X2 = CONS( t1666, X2 );
  268.         X2 = CONS( t1668, X2 );
  269.         X1 = CONS( X2, X1 );
  270.         X2 = EMPTYLIST;
  271.         X2 = CONS( t1666, X2 );
  272.         X1 = CONS( X2, X1 );
  273.         X1 = CONS( c1054, X1 );
  274.         c1052 = CONS( X1, c1052 );
  275.         c1052 = CONS( c1053, c1052 );
  276.         CONSTANTEXP( ADR( c1052 ) );
  277.         c1044 = STRINGTOSYMBOL( U_TX( ADR( t1696 ) ) );
  278.         CONSTANTEXP( ADR( c1044 ) );
  279. }
  280.  
  281. DEFTSCP( scdebug_trace_2dlevel_v );
  282. DEFSTRING( t1697, "SCDEBUG_TRACE-LEVEL", 19 );
  283. DEFTSCP( scdebug_traced_2dprocs_v );
  284. DEFSTRING( t1698, "TRACED-PROCS", 12 );
  285. DEFTSCP( scdebug_bpt_2dprocs_v );
  286. DEFSTRING( t1699, "BPT-PROCS", 9 );
  287. DEFTSCP( scdebug__2aargs_2a_v );
  288. DEFSTRING( t1700, "*ARGS*", 6 );
  289. DEFTSCP( scdebug__2aresult_2a_v );
  290. DEFSTRING( t1701, "*RESULT*", 8 );
  291. EXTERNTSCPP( scexpand_install_2dexpander );
  292. EXTERNTSCP( scexpand_install_2dexpander_v );
  293. DEFSTRING( t1702, "scdebug_l1045 [inside TOP-LEVEL]", 32 );
  294. EXTERNTSCPP( scrt1__24__cdr_2derror );
  295. EXTERNTSCP( scrt1__24__cdr_2derror_v );
  296. EXTERNTSCPP( scrt1_cons_2a );
  297. EXTERNTSCP( scrt1_cons_2a_v );
  298.  
  299. TSCP  scdebug_l1045( x1046, e1047 )
  300.         TSCP  x1046, e1047;
  301. {
  302.         TSCP  X3, X2, X1;
  303.  
  304.         PUSHSTACKTRACE( U_TX( ADR( t1702 ) ) );
  305.         if  ( EQ( TSCPTAG( x1046 ), PAIRTAG ) )  goto  L1705;
  306.         scrt1__24__cdr_2derror( x1046 );
  307. L1705:
  308.         if  ( FALSE( PAIR_CDR( x1046 ) ) )  goto  L1707;
  309.         X1 = CONS( EMPTYLIST, EMPTYLIST );
  310.         X2 = CONS( EMPTYLIST, EMPTYLIST );
  311.         X1 = CONS( scrt1_cons_2a( c1057, 
  312.                                   CONS( PAIR_CDR( x1046 ), X2 ) ), 
  313.                    X1 );
  314.         X2 = CONS( EMPTYLIST, EMPTYLIST );
  315.         X3 = CONS( EMPTYLIST, EMPTYLIST );
  316.         X2 = CONS( scrt1_cons_2a( c1056, CONS( c1055, X3 ) ), 
  317.                    X2 );
  318.         POPSTACKTRACE( scrt1_cons_2a( c1053, 
  319.                                       CONS( scrt1_cons_2a( c1054, 
  320.                                                            CONS( scrt1_cons_2a( c1055, 
  321.                                                                                 CONS( EMPTYLIST, 
  322.                                                                                       EMPTYLIST ) ), 
  323.                                                                  X2 ) ), 
  324.                                             X1 ) ) );
  325. L1707:
  326.         POPSTACKTRACE( c1052 );
  327. }
  328.  
  329. DEFTSCP( scdebug_dotrace_v );
  330. DEFSTRING( t1710, "DOTRACE", 7 );
  331. EXTERNTSCPP( scrt1_assoc );
  332. EXTERNTSCP( scrt1_assoc_v );
  333. EXTERNTSCPP( scdebug_dountrace );
  334. EXTERNTSCP( scdebug_dountrace_v );
  335. EXTERNTSCPP( scdebug_dounbpt );
  336. EXTERNTSCP( scdebug_dounbpt_v );
  337. EXTERNTSCPP( scrt2_top_2dlevel_2dvalue );
  338. EXTERNTSCP( scrt2_top_2dlevel_2dvalue_v );
  339. EXTERNTSCPP( scrt6_error );
  340. EXTERNTSCP( scrt6_error_v );
  341. EXTERNTSCPP( scdebug_tracer );
  342. EXTERNTSCP( scdebug_tracer_v );
  343. EXTERNTSCPP( sc_cons );
  344. EXTERNTSCP( sc_cons_v );
  345. EXTERNTSCPP( scrt2_2dvalue_21_c9d2a496 );
  346. EXTERNTSCP( scrt2_2dvalue_21_c9d2a496_v );
  347.  
  348. TSCP  scdebug_dotrace( n1064 )
  349.         TSCP  n1064;
  350. {
  351.         TSCP  X6, X5, X4, X3, X2, X1;
  352.  
  353.         PUSHSTACKTRACE( U_TX( ADR( t1710 ) ) );
  354.         if  ( FALSE( scrt1_assoc( n1064, scdebug_traced_2dprocs_v ) )
  355.             )  goto  L1712;
  356.         scdebug_dountrace( n1064 );
  357. L1712:
  358.         if  ( FALSE( scrt1_assoc( n1064, scdebug_bpt_2dprocs_v ) )
  359.             )  goto  L1714;
  360.         scdebug_dounbpt( n1064 );
  361. L1714:
  362.         X1 = FALSEVALUE;
  363.         X2 = scrt2_top_2dlevel_2dvalue( n1064 );
  364.         X1 = CONS( X1, EMPTYLIST );
  365.         if  ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ), 
  366.                    EQ( TSCP_EXTENDEDTAG( X2 ), PROCEDURETAG ) )
  367.             )  goto  L1717;
  368.         scrt6_error( c1044, c1072, EMPTYLIST );
  369. L1717:
  370.         if  ( FALSE( scrt1_assoc( n1064, scdebug_traced_2dprocs_v ) )
  371.             )  goto  L1719;
  372.         scrt6_error( c1044, 
  373.                      c1073, CONS( n1064, EMPTYLIST ) );
  374. L1719:
  375.         X3 = scdebug_tracer( n1064, X2 );
  376.         SETGEN( PAIR_CAR( X1 ), X3 );
  377.         X6 = sc_cons( PAIR_CAR( X1 ), EMPTYLIST );
  378.         X5 = sc_cons( X2, X6 );
  379.         X4 = sc_cons( n1064, X5 );
  380.         X3 = X4;
  381.         scdebug_traced_2dprocs_v = sc_cons( X3, 
  382.                                             scdebug_traced_2dprocs_v );
  383.         scrt2_2dvalue_21_c9d2a496( n1064, PAIR_CAR( X1 ) );
  384.         POPSTACKTRACE( n1064 );
  385. }
  386.  
  387. DEFTSCP( scdebug_tracer_v );
  388. DEFSTRING( t1722, "TRACER", 6 );
  389. DEFSTRING( t1725, "scdebug_l1080 [inside TRACER]", 29 );
  390. EXTERNTSCPP( scrt6_format );
  391. EXTERNTSCP( scrt6_format_v );
  392. EXTERNTSCP( scrt5_stdout_2dport_v );
  393. EXTERNTSCPP( sc_make_2dstring );
  394. EXTERNTSCP( sc_make_2dstring_v );
  395. EXTERNTSCPP( scrt2_min_2dtwo );
  396. EXTERNTSCP( scrt2_min_2dtwo_v );
  397. EXTERNTSCPP( scrt2__2a_2dtwo );
  398. EXTERNTSCP( scrt2__2a_2dtwo_v );
  399. EXTERNTSCPP( scrt2__2b_2dtwo );
  400. EXTERNTSCP( scrt2__2b_2dtwo_v );
  401. EXTERNTSCPP( sc_apply_2dtwo );
  402. EXTERNTSCP( sc_apply_2dtwo_v );
  403. EXTERNTSCPP( scrt2__2d_2dtwo );
  404. EXTERNTSCP( scrt2__2d_2dtwo_v );
  405.  
  406. TSCP  scdebug_l1080( x1081, c1724 )
  407.         TSCP  x1081, c1724;
  408. {
  409.         TSCP  X8, X7, X6, X5, X4, X3, X2, X1;
  410.  
  411.         PUSHSTACKTRACE( U_TX( ADR( t1725 ) ) );
  412.         X1 = DISPLAY( 0 );
  413.         DISPLAY( 0 ) = CLOSURE_VAR( c1724, 0 );
  414.         X2 = DISPLAY( 1 );
  415.         DISPLAY( 1 ) = CLOSURE_VAR( c1724, 1 );
  416.         X4 = CONS( sc_cons( DISPLAY( 0 ), x1081 ), 
  417.                    EMPTYLIST );
  418.         X7 = scdebug_trace_2dlevel_v;
  419.         if  ( BITAND( BITOR( INT( X7 ), INT( _TSCP( 60 ) ) ), 
  420.                       3 ) )  goto  L1728;
  421.         if  ( GTE( INT( X7 ), INT( _TSCP( 60 ) ) ) )  goto  L1730;
  422.         X6 = X7;
  423.         goto L1729;
  424. L1730:
  425.         X6 = _TSCP( 60 );
  426.         goto L1729;
  427. L1728:
  428.         X6 = scrt2_min_2dtwo( X7, _TSCP( 60 ) );
  429. L1729:
  430.         if  ( BITAND( BITOR( INT( _TSCP( 8 ) ), INT( X6 ) ), 
  431.                       3 ) )  goto  L1733;
  432.         X5 = _TSCP( ITIMES( FIXED_C( _TSCP( 8 ) ), 
  433.                             INT( X6 ) ) );
  434.         goto L1734;
  435. L1733:
  436.         X5 = scrt2__2a_2dtwo( _TSCP( 8 ), X6 );
  437. L1734:
  438.         X4 = CONS( sc_make_2dstring( X5, 
  439.                                      CONS( _TSCP( 8210 ), EMPTYLIST ) ), 
  440.                    X4 );
  441.         scrt6_format( scrt5_stdout_2dport_v, 
  442.                       CONS( c1082, X4 ) );
  443.         X4 = scdebug_trace_2dlevel_v;
  444.         if  ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 4 ) ) ), 
  445.                       3 ) )  goto  L1736;
  446.         X5 = _TSCP( IPLUS( INT( X4 ), INT( _TSCP( 4 ) ) ) );
  447.         goto L1737;
  448. L1736:
  449.         X5 = scrt2__2b_2dtwo( X4, _TSCP( 4 ) );
  450. L1737:
  451.         scdebug_trace_2dlevel_v = X5;
  452.         X4 = sc_apply_2dtwo( DISPLAY( 1 ), x1081 );
  453.         X5 = scdebug_trace_2dlevel_v;
  454.         if  ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 4 ) ) ), 
  455.                       3 ) )  goto  L1740;
  456.         X6 = _TSCP( IDIFFERENCE( INT( X5 ), 
  457.                                  INT( _TSCP( 4 ) ) ) );
  458.         goto L1741;
  459. L1740:
  460.         X6 = scrt2__2d_2dtwo( X5, _TSCP( 4 ) );
  461. L1741:
  462.         scdebug_trace_2dlevel_v = X6;
  463.         X5 = CONS( X4, EMPTYLIST );
  464.         X5 = CONS( c1126, X5 );
  465.         X8 = scdebug_trace_2dlevel_v;
  466.         if  ( BITAND( BITOR( INT( X8 ), INT( _TSCP( 60 ) ) ), 
  467.                       3 ) )  goto  L1743;
  468.         if  ( GTE( INT( X8 ), INT( _TSCP( 60 ) ) ) )  goto  L1745;
  469.         X7 = X8;
  470.         goto L1744;
  471. L1745:
  472.         X7 = _TSCP( 60 );
  473.         goto L1744;
  474. L1743:
  475.         X7 = scrt2_min_2dtwo( X8, _TSCP( 60 ) );
  476. L1744:
  477.         if  ( BITAND( BITOR( INT( _TSCP( 8 ) ), INT( X7 ) ), 
  478.                       3 ) )  goto  L1748;
  479.         X6 = _TSCP( ITIMES( FIXED_C( _TSCP( 8 ) ), 
  480.                             INT( X7 ) ) );
  481.         goto L1749;
  482. L1748:
  483.         X6 = scrt2__2a_2dtwo( _TSCP( 8 ), X7 );
  484. L1749:
  485.         X5 = CONS( sc_make_2dstring( X6, 
  486.                                      CONS( _TSCP( 8210 ), EMPTYLIST ) ), 
  487.                    X5 );
  488.         scrt6_format( scrt5_stdout_2dport_v, 
  489.                       CONS( c1113, X5 ) );
  490.         X3 = X4;
  491.         DISPLAY( 0 ) = X1;
  492.         DISPLAY( 1 ) = X2;
  493.         POPSTACKTRACE( X3 );
  494. }
  495.  
  496. TSCP  scdebug_tracer( n1078, p1079 )
  497.         TSCP  n1078, p1079;
  498. {
  499.         TSCP  SD0 = DISPLAY( 0 );
  500.         TSCP  SD1 = DISPLAY( 1 );
  501.         TSCP  SDVAL;
  502.  
  503.         PUSHSTACKTRACE( U_TX( ADR( t1722 ) ) );
  504.         DISPLAY( 0 ) = n1078;
  505.         DISPLAY( 1 ) = p1079;
  506.         SDVAL = MAKEPROCEDURE( 0, 
  507.                                1, 
  508.                                scdebug_l1080, 
  509.                                MAKECLOSURE( EMPTYLIST, 
  510.                                             2, 
  511.                                             DISPLAY( 0 ), 
  512.                                             DISPLAY( 1 ) ) );
  513.         DISPLAY( 0 ) = SD0;
  514.         DISPLAY( 1 ) = SD1;
  515.         POPSTACKTRACE( SDVAL );
  516. }
  517.  
  518. DEFSTRING( t1750, "scdebug_l1128 [inside TOP-LEVEL]", 32 );
  519. EXTERNTSCPP( scrt1__24__car_2derror );
  520. EXTERNTSCP( scrt1__24__car_2derror_v );
  521.  
  522. TSCP  scdebug_l1128( x1129, e1130 )
  523.         TSCP  x1129, e1130;
  524. {
  525.         TSCP  X8, X7, X6, X5, X4, X3, X2, X1;
  526.  
  527.         PUSHSTACKTRACE( U_TX( ADR( t1750 ) ) );
  528.         x1129 = CONS( x1129, EMPTYLIST );
  529.         X2 = PAIR_CAR( x1129 );
  530.         if  ( EQ( TSCPTAG( X2 ), PAIRTAG ) )  goto  L1755;
  531.         scrt1__24__cdr_2derror( X2 );
  532. L1755:
  533.         X1 = PAIR_CDR( X2 );
  534.         if  ( NEQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) )  goto  L1752;
  535.         X2 = scdebug_traced_2dprocs_v;
  536.         X3 = X2;
  537.         X4 = EMPTYLIST;
  538.         X5 = EMPTYLIST;
  539. L1759:
  540.         if  ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) )  goto  L1760;
  541.         X1 = X4;
  542.         goto L1771;
  543. L1760:
  544.         if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L1763;
  545.         scrt1__24__car_2derror( X3 );
  546. L1763:
  547.         X8 = PAIR_CAR( X3 );
  548.         if  ( EQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L1767;
  549.         scrt1__24__car_2derror( X8 );
  550. L1767:
  551.         X7 = PAIR_CAR( X8 );
  552.         X6 = sc_cons( X7, EMPTYLIST );
  553.         if  ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) )  goto  L1770;
  554.         X7 = PAIR_CDR( X3 );
  555.         X5 = X6;
  556.         X4 = X6;
  557.         X3 = X7;
  558.         goto L1759;
  559. L1770:
  560.         X7 = PAIR_CDR( X3 );
  561.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L1775;
  562.         scrt6_error( c1174, c1175, CONS( X5, EMPTYLIST ) );
  563. L1775:
  564.         X5 = SETGEN( PAIR_CDR( X5 ), X6 );
  565.         X3 = X7;
  566.         goto L1759;
  567. L1771:
  568.         SETGEN( PAIR_CAR( x1129 ), X1 );
  569.         goto L1753;
  570. L1752:
  571.         X2 = PAIR_CAR( x1129 );
  572.         if  ( EQ( TSCPTAG( X2 ), PAIRTAG ) )  goto  L1778;
  573.         scrt1__24__cdr_2derror( X2 );
  574. L1778:
  575.         X1 = PAIR_CDR( X2 );
  576.         SETGEN( PAIR_CAR( x1129 ), X1 );
  577. L1753:
  578.         X1 = CONS( EMPTYLIST, EMPTYLIST );
  579.         X2 = CONS( EMPTYLIST, EMPTYLIST );
  580.         X1 = CONS( scrt1_cons_2a( c1057, 
  581.                                   CONS( PAIR_CAR( x1129 ), X2 ) ), 
  582.                    X1 );
  583.         X2 = CONS( EMPTYLIST, EMPTYLIST );
  584.         X3 = CONS( EMPTYLIST, EMPTYLIST );
  585.         X2 = CONS( scrt1_cons_2a( c1190, CONS( c1055, X3 ) ), 
  586.                    X2 );
  587.         POPSTACKTRACE( scrt1_cons_2a( c1053, 
  588.                                       CONS( scrt1_cons_2a( c1054, 
  589.                                                            CONS( scrt1_cons_2a( c1055, 
  590.                                                                                 CONS( EMPTYLIST, 
  591.                                                                                       EMPTYLIST ) ), 
  592.                                                                  X2 ) ), 
  593.                                             X1 ) ) );
  594. }
  595.  
  596. DEFTSCP( scdebug_dountrace_v );
  597. DEFSTRING( t1780, "DOUNTRACE", 9 );
  598. EXTERNTSCPP( scrt1_caddr );
  599. EXTERNTSCP( scrt1_caddr_v );
  600. EXTERNTSCPP( scrt1_remove );
  601. EXTERNTSCP( scrt1_remove_v );
  602.  
  603. TSCP  scdebug_dountrace( n1192 )
  604.         TSCP  n1192;
  605. {
  606.         TSCP  X3, X2, X1;
  607.  
  608.         PUSHSTACKTRACE( U_TX( ADR( t1780 ) ) );
  609.         X1 = scrt1_assoc( n1192, scdebug_traced_2dprocs_v );
  610.         if  ( TRUE( X1 ) )  goto  L1783;
  611.         scrt6_error( c1127, 
  612.                      c1195, CONS( n1192, EMPTYLIST ) );
  613. L1783:
  614.         X2 = scrt2_top_2dlevel_2dvalue( n1192 );
  615.         X3 = scrt1_caddr( X1 );
  616.         if  ( NEQ( UNSIGNED( X2 ), UNSIGNED( X3 ) ) )  goto  L1785;
  617.         if  ( EQ( TSCPTAG( X1 ), PAIRTAG ) )  goto  L1788;
  618.         scrt1__24__cdr_2derror( X1 );
  619. L1788:
  620.         X3 = PAIR_CDR( X1 );
  621.         if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L1791;
  622.         scrt1__24__car_2derror( X3 );
  623. L1791:
  624.         X2 = PAIR_CAR( X3 );
  625.         scrt2_2dvalue_21_c9d2a496( n1192, X2 );
  626. L1785:
  627.         scdebug_traced_2dprocs_v = scrt1_remove( X1, 
  628.                                                  scdebug_traced_2dprocs_v );
  629.         POPSTACKTRACE( n1192 );
  630. }
  631.  
  632. DEFSTRING( t1793, "scdebug_l1211 [inside TOP-LEVEL]", 32 );
  633. EXTERNTSCPP( scrt1_length );
  634. EXTERNTSCP( scrt1_length_v );
  635.  
  636. TSCP  scdebug_l1211( x1212, e1213 )
  637.         TSCP  x1212, e1213;
  638. {
  639.         TSCP  X6, X5, X4, X3, X2, X1;
  640.  
  641.         PUSHSTACKTRACE( U_TX( ADR( t1793 ) ) );
  642.         X1 = scrt1_length( x1212 );
  643.         if  ( EQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 4 ) ) ) )  goto  L1796;
  644.         if  ( NEQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 8 ) ) ) )  goto  L1798;
  645.         X2 = CONS( EMPTYLIST, EMPTYLIST );
  646.         X3 = CONS( EMPTYLIST, EMPTYLIST );
  647.         if  ( EQ( TSCPTAG( x1212 ), PAIRTAG ) )  goto  L1801;
  648.         scrt1__24__cdr_2derror( x1212 );
  649. L1801:
  650.         X2 = CONS( scrt1_cons_2a( c1057, 
  651.                                   CONS( PAIR_CDR( x1212 ), X3 ) ), 
  652.                    X2 );
  653.         POPSTACKTRACE( scrt1_cons_2a( c1229, 
  654.                                       CONS( c1230, X2 ) ) );
  655. L1798:
  656.         if  ( NEQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 12 ) ) ) )  goto  L1803;
  657.         X4 = scrt1_caddr( x1212 );
  658.         X3 = e1213;
  659.         X3 = UNKNOWNCALL( X3, 2 );
  660.         X2 = VIA( PROCEDURE_CODE( X3 ) )( X4, 
  661.                                           e1213, 
  662.                                           PROCEDURE_CLOSURE( X3 ) );
  663.         X3 = CONS( EMPTYLIST, EMPTYLIST );
  664.         X4 = CONS( EMPTYLIST, EMPTYLIST );
  665.         X5 = CONS( EMPTYLIST, EMPTYLIST );
  666.         X4 = CONS( scrt1_cons_2a( c1057, CONS( X2, X5 ) ), 
  667.                    X4 );
  668.         X5 = CONS( EMPTYLIST, EMPTYLIST );
  669.         if  ( EQ( TSCPTAG( x1212 ), PAIRTAG ) )  goto  L1807;
  670.         scrt1__24__cdr_2derror( x1212 );
  671. L1807:
  672.         X6 = PAIR_CDR( x1212 );
  673.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L1810;
  674.         scrt1__24__car_2derror( X6 );
  675. L1810:
  676.         X3 = CONS( scrt1_cons_2a( c1231, 
  677.                                   CONS( scrt1_cons_2a( c1057, 
  678.                                                        CONS( PAIR_CAR( X6 ), 
  679.                                                              X5 ) ), 
  680.                                         X4 ) ), 
  681.                    X3 );
  682.         POPSTACKTRACE( scrt1_cons_2a( c1229, 
  683.                                       CONS( c1230, X3 ) ) );
  684. L1803:
  685.         POPSTACKTRACE( scrt6_error( c1210, c1226, EMPTYLIST ) );
  686. L1796:
  687.         POPSTACKTRACE( c1246 );
  688. }
  689.  
  690. DEFTSCP( scdebug_dobpt_v );
  691. DEFSTRING( t1812, "DOBPT", 5 );
  692. EXTERNTSCPP( scdebug_bpter );
  693. EXTERNTSCP( scdebug_bpter_v );
  694. EXTERNTSCPP( sceval_eval );
  695. EXTERNTSCP( sceval_eval_v );
  696.  
  697. TSCP  scdebug_dobpt( n1249, c1250 )
  698.         TSCP  n1249, c1250;
  699. {
  700.         TSCP  X6, X5, X4, X3, X2, X1;
  701.  
  702.         PUSHSTACKTRACE( U_TX( ADR( t1812 ) ) );
  703.         if  ( FALSE( scrt1_assoc( n1249, scdebug_traced_2dprocs_v ) )
  704.             )  goto  L1814;
  705.         scdebug_dountrace( n1249 );
  706. L1814:
  707.         if  ( FALSE( scrt1_assoc( n1249, scdebug_bpt_2dprocs_v ) )
  708.             )  goto  L1816;
  709.         scdebug_dounbpt( n1249 );
  710. L1816:
  711.         X1 = FALSEVALUE;
  712.         X2 = scrt2_top_2dlevel_2dvalue( n1249 );
  713.         X1 = CONS( X1, EMPTYLIST );
  714.         if  ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ), 
  715.                    EQ( TSCP_EXTENDEDTAG( X2 ), PROCEDURETAG ) )
  716.             )  goto  L1819;
  717.         scrt6_error( c1210, c1072, EMPTYLIST );
  718. L1819:
  719.         if  ( FALSE( c1250 ) )  goto  L1821;
  720.         if  ( EQ( TSCPTAG( c1250 ), PAIRTAG ) )  goto  L1824;
  721.         scrt1__24__car_2derror( c1250 );
  722. L1824:
  723.         X5 = PAIR_CAR( c1250 );
  724.         X4 = sceval_eval( X5, EMPTYLIST );
  725.         goto L1822;
  726. L1821:
  727.         X4 = FALSEVALUE;
  728. L1822:
  729.         X3 = scdebug_bpter( n1249, X2, X4 );
  730.         SETGEN( PAIR_CAR( X1 ), X3 );
  731.         X6 = sc_cons( PAIR_CAR( X1 ), EMPTYLIST );
  732.         X5 = sc_cons( X2, X6 );
  733.         X4 = sc_cons( n1249, X5 );
  734.         X3 = X4;
  735.         scdebug_bpt_2dprocs_v = sc_cons( X3, scdebug_bpt_2dprocs_v );
  736.         scrt2_2dvalue_21_c9d2a496( n1249, PAIR_CAR( X1 ) );
  737.         POPSTACKTRACE( n1249 );
  738. }
  739.  
  740. DEFTSCP( scdebug_bpter_2dprocname_v );
  741. DEFSTRING( t1827, "SCDEBUG_BPTER-PROCNAME", 22 );
  742. EXTERNTSCP( sc_emptystring );
  743. DEFTSCP( scdebug_bpter_v );
  744. DEFSTRING( t1828, "SCDEBUG_BPTER", 13 );
  745. DEFSTRING( t1831, "XEQ [inside BPTER]", 18 );
  746. EXTERNTSCPP( scrt5_le_2dtasks_f7f1ba87 );
  747. EXTERNTSCP( scrt5_le_2dtasks_f7f1ba87_v );
  748. EXTERNTSCPP( screp_read_2deval_2dprint );
  749. EXTERNTSCP( screp_read_2deval_2dprint_v );
  750.  
  751. TSCP  scdebug_x1269( a1271 )
  752.         TSCP  a1271;
  753. {
  754.         TSCP  X2, X1;
  755.  
  756.         PUSHSTACKTRACE( U_TX( ADR( t1831 ) ) );
  757.         X1 = scrt5_le_2dtasks_f7f1ba87( FALSEVALUE );
  758.         X2 = sc_apply_2dtwo( screp_read_2deval_2dprint_v, a1271 );
  759.         scrt5_le_2dtasks_f7f1ba87( X1 );
  760.         POPSTACKTRACE( X2 );
  761. }
  762.  
  763. DEFSTRING( t1836, "scdebug_l1276 [inside BPTER]", 28 );
  764. EXTERNTSCPP( scrt4_c_2dtscp_2dref );
  765. EXTERNTSCP( scrt4_c_2dtscp_2dref_v );
  766. EXTERNTSCPP( scdebug_x1269 );
  767. EXTERNTSCPP( scdebug_dobacktrace );
  768. EXTERNTSCP( scdebug_dobacktrace_v );
  769.  
  770. TSCP  scdebug_l1276( x1277, c1835 )
  771.         TSCP  x1277, c1835;
  772. {
  773.         TSCP  X7, X6, X5, X4, X3, X2, X1;
  774.  
  775.         PUSHSTACKTRACE( U_TX( ADR( t1836 ) ) );
  776.         X1 = DISPLAY( 0 );
  777.         DISPLAY( 0 ) = CLOSURE_VAR( c1835, 0 );
  778.         X2 = DISPLAY( 1 );
  779.         DISPLAY( 1 ) = CLOSURE_VAR( c1835, 1 );
  780.         X3 = DISPLAY( 2 );
  781.         DISPLAY( 2 ) = CLOSURE_VAR( c1835, 2 );
  782.         X5 = UNSIGNED_TSCP( sc_stacktrace );
  783.         scdebug_bpter_2dprocname_v = scrt4_c_2dtscp_2dref( X5, 
  784.                                                            _TSCP( 16 ) );
  785.         if  ( FALSE( DISPLAY( 2 ) ) )  goto  L1838;
  786.         X5 = FALSEVALUE;
  787.         goto L1839;
  788. L1838:
  789.         X5 = TRUEVALUE;
  790. L1839:
  791.         if  ( TRUE( X5 ) )  goto  L1844;
  792.         if  ( TRUE( sc_apply_2dtwo( DISPLAY( 2 ), x1277 ) ) )  goto  L1844;
  793.         X4 = sc_apply_2dtwo( DISPLAY( 1 ), x1277 );
  794.         goto L1847;
  795. L1844:
  796.         X5 = scrt6_format( c1306, 
  797.                            CONS( scdebug_trace_2dlevel_v, EMPTYLIST ) );
  798.         scdebug__2aargs_2a_v = x1277;
  799.         X6 = CONS( scdebug_dobacktrace( scdebug_bpter_2dprocname_v, 
  800.                                         c1290, 
  801.                                         _TSCP( 80 ), FALSEVALUE ), 
  802.                    EMPTYLIST );
  803.         X6 = CONS( c1289, X6 );
  804.         X6 = CONS( X5, X6 );
  805.         X6 = CONS( c1288, X6 );
  806.         X7 = CONS( sc_cons( DISPLAY( 0 ), x1277 ), 
  807.                    EMPTYLIST );
  808.         X6 = CONS( scrt6_format( c1287, 
  809.                                  CONS( scdebug_trace_2dlevel_v, X7 ) ), 
  810.                    X6 );
  811.         scdebug_x1269( CONS( c1286, X6 ) );
  812.         X6 = scdebug_trace_2dlevel_v;
  813.         if  ( BITAND( BITOR( INT( X6 ), INT( _TSCP( 4 ) ) ), 
  814.                       3 ) )  goto  L1850;
  815.         X7 = _TSCP( IPLUS( INT( X6 ), INT( _TSCP( 4 ) ) ) );
  816.         goto L1851;
  817. L1850:
  818.         X7 = scrt2__2b_2dtwo( X6, _TSCP( 4 ) );
  819. L1851:
  820.         scdebug_trace_2dlevel_v = X7;
  821.         scdebug__2aresult_2a_v = sc_apply_2dtwo( DISPLAY( 1 ), 
  822.                                                  scdebug__2aargs_2a_v );
  823.         X6 = scdebug_trace_2dlevel_v;
  824.         if  ( BITAND( BITOR( INT( X6 ), INT( _TSCP( 4 ) ) ), 
  825.                       3 ) )  goto  L1853;
  826.         X7 = _TSCP( IDIFFERENCE( INT( X6 ), 
  827.                                  INT( _TSCP( 4 ) ) ) );
  828.         goto L1854;
  829. L1853:
  830.         X7 = scrt2__2d_2dtwo( X6, _TSCP( 4 ) );
  831. L1854:
  832.         scdebug_trace_2dlevel_v = X7;
  833.         X6 = CONS( scdebug_dobacktrace( scdebug_bpter_2dprocname_v, 
  834.                                         c1290, 
  835.                                         _TSCP( 80 ), FALSEVALUE ), 
  836.                    EMPTYLIST );
  837.         X6 = CONS( c1289, X6 );
  838.         X6 = CONS( scdebug__2aresult_2a_v, X6 );
  839.         X6 = CONS( c1305, X6 );
  840.         X6 = CONS( X5, X6 );
  841.         X6 = CONS( c1288, X6 );
  842.         X7 = CONS( scdebug__2aresult_2a_v, EMPTYLIST );
  843.         X6 = CONS( scrt6_format( c1304, 
  844.                                  CONS( scdebug_trace_2dlevel_v, X7 ) ), 
  845.                    X6 );
  846.         X4 = scdebug_x1269( CONS( c1286, X6 ) );
  847. L1847:
  848.         DISPLAY( 0 ) = X1;
  849.         DISPLAY( 1 ) = X2;
  850.         DISPLAY( 2 ) = X3;
  851.         POPSTACKTRACE( X4 );
  852. }
  853.  
  854. TSCP  scdebug_bpter( n1265, p1266, c1267 )
  855.         TSCP  n1265, p1266, c1267;
  856. {
  857.         TSCP  SD0 = DISPLAY( 0 );
  858.         TSCP  SD1 = DISPLAY( 1 );
  859.         TSCP  SD2 = DISPLAY( 2 );
  860.         TSCP  SDVAL;
  861.  
  862.         PUSHSTACKTRACE( U_TX( ADR( t1828 ) ) );
  863.         DISPLAY( 0 ) = n1265;
  864.         DISPLAY( 1 ) = p1266;
  865.         DISPLAY( 2 ) = c1267;
  866.         SDVAL = MAKEPROCEDURE( 0, 
  867.                                1, 
  868.                                scdebug_l1276, 
  869.                                MAKECLOSURE( EMPTYLIST, 
  870.                                             3, 
  871.                                             DISPLAY( 0 ), 
  872.                                             DISPLAY( 1 ), 
  873.                                             DISPLAY( 2 ) ) );
  874.         DISPLAY( 0 ) = SD0;
  875.         DISPLAY( 1 ) = SD1;
  876.         DISPLAY( 2 ) = SD2;
  877.         POPSTACKTRACE( SDVAL );
  878. }
  879.  
  880. DEFSTRING( t1855, "scdebug_l1308 [inside TOP-LEVEL]", 32 );
  881.  
  882. TSCP  scdebug_l1308( x1309, e1310 )
  883.         TSCP  x1309, e1310;
  884. {
  885.         TSCP  X8, X7, X6, X5, X4, X3, X2, X1;
  886.  
  887.         PUSHSTACKTRACE( U_TX( ADR( t1855 ) ) );
  888.         x1309 = CONS( x1309, EMPTYLIST );
  889.         X2 = PAIR_CAR( x1309 );
  890.         if  ( EQ( TSCPTAG( X2 ), PAIRTAG ) )  goto  L1860;
  891.         scrt1__24__cdr_2derror( X2 );
  892. L1860:
  893.         X1 = PAIR_CDR( X2 );
  894.         if  ( NEQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) )  goto  L1857;
  895.         X2 = scdebug_bpt_2dprocs_v;
  896.         X3 = X2;
  897.         X4 = EMPTYLIST;
  898.         X5 = EMPTYLIST;
  899. L1864:
  900.         if  ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) )  goto  L1865;
  901.         X1 = X4;
  902.         goto L1876;
  903. L1865:
  904.         if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L1868;
  905.         scrt1__24__car_2derror( X3 );
  906. L1868:
  907.         X8 = PAIR_CAR( X3 );
  908.         if  ( EQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L1872;
  909.         scrt1__24__car_2derror( X8 );
  910. L1872:
  911.         X7 = PAIR_CAR( X8 );
  912.         X6 = sc_cons( X7, EMPTYLIST );
  913.         if  ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) )  goto  L1875;
  914.         X7 = PAIR_CDR( X3 );
  915.         X5 = X6;
  916.         X4 = X6;
  917.         X3 = X7;
  918.         goto L1864;
  919. L1875:
  920.         X7 = PAIR_CDR( X3 );
  921.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L1880;
  922.         scrt6_error( c1174, c1175, CONS( X5, EMPTYLIST ) );
  923. L1880:
  924.         X5 = SETGEN( PAIR_CDR( X5 ), X6 );
  925.         X3 = X7;
  926.         goto L1864;
  927. L1876:
  928.         SETGEN( PAIR_CAR( x1309 ), X1 );
  929.         goto L1858;
  930. L1857:
  931.         X2 = PAIR_CAR( x1309 );
  932.         if  ( EQ( TSCPTAG( X2 ), PAIRTAG ) )  goto  L1883;
  933.         scrt1__24__cdr_2derror( X2 );
  934. L1883:
  935.         X1 = PAIR_CDR( X2 );
  936.         SETGEN( PAIR_CAR( x1309 ), X1 );
  937. L1858:
  938.         X1 = CONS( EMPTYLIST, EMPTYLIST );
  939.         X2 = CONS( EMPTYLIST, EMPTYLIST );
  940.         X1 = CONS( scrt1_cons_2a( c1057, 
  941.                                   CONS( PAIR_CAR( x1309 ), X2 ) ), 
  942.                    X1 );
  943.         X2 = CONS( EMPTYLIST, EMPTYLIST );
  944.         X3 = CONS( EMPTYLIST, EMPTYLIST );
  945.         X2 = CONS( scrt1_cons_2a( c1368, CONS( c1055, X3 ) ), 
  946.                    X2 );
  947.         POPSTACKTRACE( scrt1_cons_2a( c1053, 
  948.                                       CONS( scrt1_cons_2a( c1054, 
  949.                                                            CONS( scrt1_cons_2a( c1055, 
  950.                                                                                 CONS( EMPTYLIST, 
  951.                                                                                       EMPTYLIST ) ), 
  952.                                                                  X2 ) ), 
  953.                                             X1 ) ) );
  954. }
  955.  
  956. DEFTSCP( scdebug_dounbpt_v );
  957. DEFSTRING( t1885, "DOUNBPT", 7 );
  958.  
  959. TSCP  scdebug_dounbpt( n1370 )
  960.         TSCP  n1370;
  961. {
  962.         TSCP  X3, X2, X1;
  963.  
  964.         PUSHSTACKTRACE( U_TX( ADR( t1885 ) ) );
  965.         X1 = scrt1_assoc( n1370, scdebug_bpt_2dprocs_v );
  966.         if  ( TRUE( X1 ) )  goto  L1888;
  967.         scrt6_error( c1307, 
  968.                      c1373, CONS( n1370, EMPTYLIST ) );
  969. L1888:
  970.         X2 = scrt2_top_2dlevel_2dvalue( n1370 );
  971.         X3 = scrt1_caddr( X1 );
  972.         if  ( NEQ( UNSIGNED( X2 ), UNSIGNED( X3 ) ) )  goto  L1890;
  973.         if  ( EQ( TSCPTAG( X1 ), PAIRTAG ) )  goto  L1893;
  974.         scrt1__24__cdr_2derror( X1 );
  975. L1893:
  976.         X3 = PAIR_CDR( X1 );
  977.         if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L1896;
  978.         scrt1__24__car_2derror( X3 );
  979. L1896:
  980.         X2 = PAIR_CAR( X3 );
  981.         scrt2_2dvalue_21_c9d2a496( n1370, X2 );
  982. L1890:
  983.         scdebug_bpt_2dprocs_v = scrt1_remove( X1, 
  984.                                               scdebug_bpt_2dprocs_v );
  985.         POPSTACKTRACE( n1370 );
  986. }
  987.  
  988. DEFTSCP( scdebug_insertion_2dsort_v );
  989. DEFSTRING( t1898, "SCDEBUG_INSERTION-SORT", 22 );
  990.  
  991. TSCP  scdebug_insertion_2dsort( i1389, s1390, b1391 )
  992.         TSCP  i1389, s1390, b1391;
  993. {
  994.         TSCP  X4, X3, X2, X1;
  995.  
  996.         PUSHSTACKTRACE( U_TX( ADR( t1898 ) ) );
  997.         X1 = s1390;
  998.         X2 = FALSEVALUE;
  999. L1901:
  1000.         if  ( NEQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) )  goto  L1902;
  1001.         if  ( FALSE( X2 ) )  goto  L1904;
  1002.         X4 = sc_cons( i1389, EMPTYLIST );
  1003.         X3 = X4;
  1004.         if  ( EQ( TSCPTAG( X2 ), PAIRTAG ) )  goto  L1909;
  1005.         scrt6_error( c1174, c1175, CONS( X2, EMPTYLIST ) );
  1006. L1909:
  1007.         SETGEN( PAIR_CDR( X2 ), X3 );
  1008.         POPSTACKTRACE( s1390 );
  1009. L1904:
  1010.         X3 = sc_cons( i1389, EMPTYLIST );
  1011.         POPSTACKTRACE( X3 );
  1012. L1902:
  1013.         if  ( EQ( TSCPTAG( X1 ), PAIRTAG ) )  goto  L1915;
  1014.         scrt1__24__car_2derror( X1 );
  1015. L1915:
  1016.         X4 = PAIR_CAR( X1 );
  1017.         X3 = b1391;
  1018.         X3 = UNKNOWNCALL( X3, 2 );
  1019.         if  ( FALSE( VIA( PROCEDURE_CODE( X3 ) )( i1389, 
  1020.                                                   X4, 
  1021.                                                   PROCEDURE_CLOSURE( X3 ) ) )
  1022.             )  goto  L1912;
  1023.         if  ( FALSE( X2 ) )  goto  L1917;
  1024.         X3 = sc_cons( i1389, X1 );
  1025.         if  ( EQ( TSCPTAG( X2 ), PAIRTAG ) )  goto  L1921;
  1026.         scrt6_error( c1174, c1175, CONS( X2, EMPTYLIST ) );
  1027. L1921:
  1028.         SETGEN( PAIR_CDR( X2 ), X3 );
  1029.         POPSTACKTRACE( s1390 );
  1030. L1917:
  1031.         POPSTACKTRACE( sc_cons( i1389, s1390 ) );
  1032. L1912:
  1033.         if  ( EQ( TSCPTAG( X1 ), PAIRTAG ) )  goto  L1924;
  1034.         scrt1__24__cdr_2derror( X1 );
  1035. L1924:
  1036.         X3 = PAIR_CDR( X1 );
  1037.         X2 = X1;
  1038.         X1 = X3;
  1039.         goto L1901;
  1040. }
  1041.  
  1042. DEFTSCP( scdebug_dobacktrace_v );
  1043. DEFSTRING( t1926, "SCDEBUG_DOBACKTRACE", 19 );
  1044. EXTERNTSCPP( scrt5_open_2doutput_2dstring );
  1045. EXTERNTSCP( scrt5_open_2doutput_2dstring_v );
  1046. EXTERNTSCPP( scrt2__3d_2dtwo );
  1047. EXTERNTSCP( scrt2__3d_2dtwo_v );
  1048. EXTERNTSCPP( scrt1_equal_3f );
  1049. EXTERNTSCP( scrt1_equal_3f_v );
  1050. EXTERNTSCPP( scrt1_member );
  1051. EXTERNTSCP( scrt1_member_v );
  1052. EXTERNTSCPP( scrt6_display );
  1053. EXTERNTSCP( scrt6_display_v );
  1054. EXTERNTSCPP( scrt6_newline );
  1055. EXTERNTSCP( scrt6_newline_v );
  1056. EXTERNTSCPP( scrt6_write );
  1057. EXTERNTSCP( scrt6_write_v );
  1058. EXTERNTSCPP( scrt6_get_2doutput_2dstring );
  1059. EXTERNTSCP( scrt6_get_2doutput_2dstring_v );
  1060. EXTERNTSCPP( scrt2__3e_2dtwo );
  1061. EXTERNTSCP( scrt2__3e_2dtwo_v );
  1062. EXTERNTSCPP( scrt3_string_2dappend );
  1063. EXTERNTSCP( scrt3_string_2dappend_v );
  1064. EXTERNTSCPP( scrt3_substring );
  1065. EXTERNTSCP( scrt3_substring_v );
  1066. EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
  1067. EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
  1068. EXTERNTSCPP( scrt1_append_2dtwo );
  1069. EXTERNTSCP( scrt1_append_2dtwo_v );
  1070. EXTERNTSCPP( scrt1_assq );
  1071. EXTERNTSCP( scrt1_assq_v );
  1072.  
  1073. TSCP  scdebug_dobacktrace( s1427, s1428, l1429, p1430 )
  1074.         TSCP  s1427, s1428, l1429, p1430;
  1075. {
  1076.         TSCP  X9, 
  1077.               X8, X7, X6, X5, X4, X3, X2, X1;
  1078.  
  1079.         PUSHSTACKTRACE( U_TX( ADR( t1926 ) ) );
  1080.         s1427 = CONS( s1427, EMPTYLIST );
  1081.         l1429 = CONS( l1429, EMPTYLIST );
  1082.         X1 = UNSIGNED_TSCP( sc_stacktrace );
  1083.         X2 = sc_emptystring;
  1084.         X3 = EMPTYLIST;
  1085.         X4 = c1540;
  1086.         X5 = scrt5_open_2doutput_2dstring(  );
  1087. L1929:
  1088.         X4 = CONS( X4, EMPTYLIST );
  1089.         X3 = CONS( X3, EMPTYLIST );
  1090.         X2 = CONS( X2, EMPTYLIST );
  1091.         if  ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 0 ) ) ), 
  1092.                       3 ) )  goto  L1930;
  1093.         X6 = BOOLEAN( EQ( UNSIGNED( X1 ), 
  1094.                           UNSIGNED( _TSCP( 0 ) ) ) );
  1095.         goto L1931;
  1096. L1930:
  1097.         X6 = scrt2__3d_2dtwo( X1, _TSCP( 0 ) );
  1098. L1931:
  1099.         if  ( TRUE( X6 ) )  goto  L1936;
  1100.         X8 = PAIR_CAR( l1429 );
  1101.         if  ( BITAND( BITOR( INT( X8 ), INT( _TSCP( 0 ) ) ), 
  1102.                       3 ) )  goto  L1938;
  1103.         X7 = BOOLEAN( EQ( UNSIGNED( X8 ), 
  1104.                           UNSIGNED( _TSCP( 0 ) ) ) );
  1105.         goto L1939;
  1106. L1938:
  1107.         X7 = scrt2__3d_2dtwo( X8, _TSCP( 0 ) );
  1108. L1939:
  1109.         if  ( TRUE( X7 ) )  goto  L1936;
  1110.         if  ( EQ( UNSIGNED( PAIR_CAR( X4 ) ), 
  1111.                   UNSIGNED( EMPTYLIST ) ) )  goto  L1936;
  1112.         if  ( FALSE( PAIR_CAR( s1427 ) ) )  goto  L1949;
  1113.         X8 = FALSEVALUE;
  1114.         goto L1950;
  1115. L1949:
  1116.         X8 = TRUEVALUE;
  1117. L1950:
  1118.         if  ( FALSE( X8 ) )  goto  L1957;
  1119.         if  ( TRUE( scrt1_equal_3f( PAIR_CAR( X2 ), s1428 ) )
  1120.             )  goto  L1936;
  1121. L1957:
  1122.         X6 = scrt4_c_2dtscp_2dref( X1, _TSCP( 16 ) );
  1123.         SETGEN( PAIR_CAR( X2 ), X6 );
  1124.         if  ( FALSE( PAIR_CAR( s1427 ) ) )  goto  L1959;
  1125.         if  ( FALSE( scrt1_equal_3f( PAIR_CAR( s1427 ), 
  1126.                                      PAIR_CAR( X2 ) ) ) )  goto  L1964;
  1127.         X6 = FALSEVALUE;
  1128.         SETGEN( PAIR_CAR( s1427 ), X6 );
  1129.         goto L1964;
  1130. L1959:
  1131.         if  ( NOT( AND( EQ( TSCPTAG( PAIR_CAR( X2 ) ), 
  1132.                             EXTENDEDTAG ), 
  1133.                         EQ( TSCP_EXTENDEDTAG( PAIR_CAR( X2 ) ), 
  1134.                             STRINGTAG ) ) ) )  goto  L1963;
  1135.         X6 = scrt1_member( PAIR_CAR( X2 ), c1484 );
  1136.         if  ( TRUE( X6 ) )  goto  L1964;
  1137.         if  ( FALSE( p1430 ) )  goto  L1969;
  1138.         scrt6_display( c1488, CONS( p1430, EMPTYLIST ) );
  1139.         scrt6_display( PAIR_CAR( X2 ), 
  1140.                        CONS( p1430, EMPTYLIST ) );
  1141.         scrt6_display( c1489, CONS( p1430, EMPTYLIST ) );
  1142.         scrt6_newline( CONS( p1430, EMPTYLIST ) );
  1143. L1969:
  1144.         X8 = PAIR_CAR( l1429 );
  1145.         if  ( BITAND( BITOR( INT( X8 ), INT( _TSCP( 4 ) ) ), 
  1146.                       3 ) )  goto  L1973;
  1147.         X7 = _TSCP( IDIFFERENCE( INT( X8 ), 
  1148.                                  INT( _TSCP( 4 ) ) ) );
  1149.         goto L1974;
  1150. L1973:
  1151.         X7 = scrt2__2d_2dtwo( X8, _TSCP( 4 ) );
  1152. L1974:
  1153.         SETGEN( PAIR_CAR( l1429 ), X7 );
  1154.         goto L1964;
  1155. L1963:
  1156.         if  ( FALSE( p1430 ) )  goto  L1976;
  1157.         X6 = scrt4_c_2dtscp_2dref( X1, _TSCP( 32 ) );
  1158.         scrt6_write( X6, CONS( X5, EMPTYLIST ) );
  1159.         X6 = scrt6_get_2doutput_2dstring( X5 );
  1160.         if  ( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ), 
  1161.                    EQ( TSCP_EXTENDEDTAG( X6 ), STRINGTAG ) ) )  goto  L1981;
  1162.         scrt6_error( c1511, c1512, CONS( X6, EMPTYLIST ) );
  1163. L1981:
  1164.         X7 = C_FIXED( STRING_LENGTH( X6 ) );
  1165.         if  ( BITAND( BITOR( INT( X7 ), 
  1166.                              INT( _TSCP( 260 ) ) ), 
  1167.                       3 ) )  goto  L1985;
  1168.         if  ( GT( INT( X7 ), INT( _TSCP( 260 ) ) ) )  goto  L1989;
  1169.         goto L1990;
  1170. L1985:
  1171.         if  ( FALSE( scrt2__3e_2dtwo( X7, _TSCP( 260 ) ) ) )  goto  L1990;
  1172. L1989:
  1173.         X8 = CONS( c1514, EMPTYLIST );
  1174.         X7 = scrt3_string_2dappend( CONS( scrt3_substring( X6, 
  1175.                                                            _TSCP( 0 ), 
  1176.                                                            _TSCP( 260 ) ), 
  1177.                                           X8 ) );
  1178.         scrt6_display( X7, CONS( p1430, EMPTYLIST ) );
  1179.         goto L1993;
  1180. L1990:
  1181.         scrt6_display( X6, CONS( p1430, EMPTYLIST ) );
  1182. L1993:
  1183.         scrt6_display( c1515, CONS( p1430, EMPTYLIST ) );
  1184.         X7 = PAIR_CAR( X4 );
  1185.         if  ( EQ( TSCPTAG( X7 ), PAIRTAG ) )  goto  L1995;
  1186.         scrt1__24__car_2derror( X7 );
  1187. L1995:
  1188.         X6 = PAIR_CAR( X7 );
  1189.         scrt6_display( X6, CONS( p1430, EMPTYLIST ) );
  1190.         scrt6_newline( CONS( p1430, EMPTYLIST ) );
  1191. L1976:
  1192.         X9 = PAIR_CAR( X4 );
  1193.         if  ( EQ( TSCPTAG( X9 ), PAIRTAG ) )  goto  L1998;
  1194.         scrt1__24__car_2derror( X9 );
  1195. L1998:
  1196.         X8 = PAIR_CAR( X9 );
  1197.         X7 = sc_cons( X8, PAIR_CAR( X2 ) );
  1198.         X6 = sc_cons( X7, PAIR_CAR( X3 ) );
  1199.         SETGEN( PAIR_CAR( X3 ), X6 );
  1200.         X7 = PAIR_CAR( X4 );
  1201.         if  ( EQ( TSCPTAG( X7 ), PAIRTAG ) )  goto  L2001;
  1202.         scrt1__24__cdr_2derror( X7 );
  1203. L2001:
  1204.         X6 = PAIR_CDR( X7 );
  1205.         SETGEN( PAIR_CAR( X4 ), X6 );
  1206.         X7 = PAIR_CAR( l1429 );
  1207.         if  ( BITAND( BITOR( INT( X7 ), INT( _TSCP( 4 ) ) ), 
  1208.                       3 ) )  goto  L2004;
  1209.         X6 = _TSCP( IDIFFERENCE( INT( X7 ), 
  1210.                                  INT( _TSCP( 4 ) ) ) );
  1211.         goto L2005;
  1212. L2004:
  1213.         X6 = scrt2__2d_2dtwo( X7, _TSCP( 4 ) );
  1214. L2005:
  1215.         SETGEN( PAIR_CAR( l1429 ), X6 );
  1216. L1964:
  1217.         X6 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 0 ) );
  1218.         X4 = PAIR_CAR( X4 );
  1219.         X3 = PAIR_CAR( X3 );
  1220.         X2 = PAIR_CAR( X2 );
  1221.         X1 = X6;
  1222.         goto L1929;
  1223. L1936:
  1224.         if  ( FALSE( PAIR_CAR( X3 ) ) )  goto  L2006;
  1225.         X7 = scrt1_assq( c1538, PAIR_CAR( X3 ) );
  1226.         if  ( EQ( TSCPTAG( X7 ), PAIRTAG ) )  goto  L2009;
  1227.         scrt1__24__cdr_2derror( X7 );
  1228. L2009:
  1229.         X6 = PAIR_CDR( X7 );
  1230.         POPSTACKTRACE( scrt1_append_2dtwo( X6, PAIR_CAR( X3 ) ) );
  1231. L2006:
  1232.         POPSTACKTRACE( PAIR_CAR( X3 ) );
  1233. }
  1234.  
  1235. DEFTSCP( scdebug_backtrace_v );
  1236. DEFSTRING( t2011, "BACKTRACE", 9 );
  1237. EXTERNTSCP( scrt5_stderr_2dport_v );
  1238.  
  1239. TSCP  scdebug_backtrace( c1543 )
  1240.         TSCP  c1543;
  1241. {
  1242.         TSCP  X1;
  1243.  
  1244.         PUSHSTACKTRACE( U_TX( ADR( t2011 ) ) );
  1245.         if  ( FALSE( c1543 ) )  goto  L2013;
  1246.         if  ( EQ( TSCPTAG( c1543 ), PAIRTAG ) )  goto  L2016;
  1247.         scrt1__24__car_2derror( c1543 );
  1248. L2016:
  1249.         X1 = PAIR_CAR( c1543 );
  1250.         goto L2014;
  1251. L2013:
  1252.         X1 = _TSCP( 80 );
  1253. L2014:
  1254.         scdebug_dobacktrace( scdebug_bpter_2dprocname_v, 
  1255.                              c1290, X1, scrt5_stderr_2dport_v );
  1256.         POPSTACKTRACE( FALSEVALUE );
  1257. }
  1258.  
  1259. DEFTSCP( scdebug_2derror_2a_ca4047fd_v );
  1260. DEFSTRING( t2018, "*DEBUG-ON-ERROR*", 16 );
  1261. DEFTSCP( scdebug__2dhandler_7d8722d5_v );
  1262. DEFSTRING( t2019, "SCDEBUG_BACKTRACE-ERROR-HANDLER", 31 );
  1263. EXTERNTSCPP( scdebug__2dhandler_7d8722d5 );
  1264. EXTERNTSCP( scdebug__2dhandler_7d8722d5_v );
  1265. EXTERNTSCP( scrt6__2aerror_2dhandler_2a_v );
  1266. EXTERNTSCPP( scrt6_char_2dready_3f );
  1267. EXTERNTSCP( scrt6_char_2dready_3f_v );
  1268. EXTERNTSCP( scrt5_stdin_2dport_v );
  1269. EXTERNTSCPP( scrt6_eof_2dobject_3f );
  1270. EXTERNTSCP( scrt6_eof_2dobject_3f_v );
  1271. EXTERNTSCPP( scrt6_read_2dchar );
  1272. EXTERNTSCP( scrt6_read_2dchar_v );
  1273. EXTERNTSCP( scrt6_reset_v );
  1274.  
  1275. TSCP  scdebug__2dhandler_7d8722d5( i1549, f1550, a1551 )
  1276.         TSCP  i1549, f1550, a1551;
  1277. {
  1278.         TSCP  X4, X3, X2, X1;
  1279.  
  1280.         PUSHSTACKTRACE( U_TX( ADR( t2019 ) ) );
  1281.         X1 = scrt6_format( c1552, CONS( i1549, EMPTYLIST ) );
  1282.         scrt6_display( X1, 
  1283.                        CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
  1284.         X2 = sc_cons( f1550, a1551 );
  1285.         X1 = sc_apply_2dtwo( scrt6_format_v, X2 );
  1286.         scrt6_display( X1, 
  1287.                        CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
  1288.         scrt6_newline( CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
  1289.         scrt6__2aerror_2dhandler_2a_v = scdebug__2dhandler_7d8722d5_v;
  1290.         if  ( FALSE( scdebug_2derror_2a_ca4047fd_v ) )  goto  L2021;
  1291.         X1 = scrt5_le_2dtasks_f7f1ba87( FALSEVALUE );
  1292.         X2 = scdebug_dobacktrace( c1560, 
  1293.                                   c1290, 
  1294.                                   _TSCP( 80 ), scrt5_stderr_2dport_v );
  1295.         scdebug_2derror_2a_ca4047fd_v = FALSEVALUE;
  1296. L2024:
  1297.         if  ( FALSE( scrt6_char_2dready_3f( CONS( scrt5_stdin_2dport_v, 
  1298.                                                   EMPTYLIST ) ) )
  1299.             )  goto  L2028;
  1300.         X3 = scrt6_read_2dchar( CONS( scrt5_stdin_2dport_v, EMPTYLIST ) );
  1301.         if  ( FALSE( scrt6_eof_2dobject_3f( X3 ) ) )  goto  L2024;
  1302. L2028:
  1303.         X3 = CONS( X2, EMPTYLIST );
  1304.         X3 = CONS( c1289, X3 );
  1305.         X3 = CONS( FALSEVALUE, X3 );
  1306.         X3 = CONS( c1286, X3 );
  1307.         X3 = CONS( c1559, X3 );
  1308.         screp_read_2deval_2dprint( CONS( c1288, X3 ) );
  1309.         scrt5_le_2dtasks_f7f1ba87( X1 );
  1310.         scdebug_2derror_2a_ca4047fd_v = TRUEVALUE;
  1311. L2021:
  1312.         X1 = scrt6_reset_v;
  1313.         X1 = UNKNOWNCALL( X1, 0 );
  1314.         POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) ) );
  1315. }
  1316.  
  1317. DEFTSCP( scdebug_on_2dinterrupt_v );
  1318. DEFSTRING( t2030, "SCDEBUG_ON-INTERRUPT", 20 );
  1319. EXTERNTSCP( screp__2areading_2dstdin_2a_v );
  1320.  
  1321. TSCP  scdebug_on_2dinterrupt( s1562 )
  1322.         TSCP  s1562;
  1323. {
  1324.         TSCP  X4, X3, X2, X1;
  1325.  
  1326.         PUSHSTACKTRACE( U_TX( ADR( t2030 ) ) );
  1327.         if  ( FALSE( screp__2areading_2dstdin_2a_v ) )  goto  L2032;
  1328.         X1 = scrt6_reset_v;
  1329.         X1 = UNKNOWNCALL( X1, 0 );
  1330.         VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) );
  1331. L2032:
  1332.         X4 = UNSIGNED_TSCP( sc_stacktrace );
  1333.         X3 = scrt4_c_2dunsigned_2dref( X4, _TSCP( 0 ) );
  1334.         X2 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
  1335.         X1 = scrt4_c_2dtscp_2dref( X2, _TSCP( 16 ) );
  1336.         X2 = scrt5_le_2dtasks_f7f1ba87( FALSEVALUE );
  1337.         scrt6_format( scrt5_stderr_2dport_v, 
  1338.                       CONS( c1566, EMPTYLIST ) );
  1339.         scdebug_dobacktrace( X1, 
  1340.                              c1290, 
  1341.                              _TSCP( 80 ), scrt5_stderr_2dport_v );
  1342.         X3 = CONS( scdebug_dobacktrace( X1, 
  1343.                                         c1290, 
  1344.                                         _TSCP( 80 ), FALSEVALUE ), 
  1345.                    EMPTYLIST );
  1346.         X3 = CONS( c1289, X3 );
  1347.         X3 = CONS( c1559, X3 );
  1348.         X3 = CONS( c1288, X3 );
  1349.         X3 = CONS( FALSEVALUE, X3 );
  1350.         screp_read_2deval_2dprint( CONS( c1286, X3 ) );
  1351.         POPSTACKTRACE( scrt5_le_2dtasks_f7f1ba87( X2 ) );
  1352. }
  1353.  
  1354. static void  init_modules( compiler_version )
  1355.         char *compiler_version;
  1356. {
  1357.         scrt3__init();
  1358.         scrt4__init();
  1359.         screp__init();
  1360.         sceval__init();
  1361.         scrt5__init();
  1362.         scrt6__init();
  1363.         scrt2__init();
  1364.         scrt1__init();
  1365.         scexpand__init();
  1366.         MAXDISPLAY( 3 );
  1367. }
  1368.  
  1369. void  scdebug__init()
  1370. {
  1371.         TSCP  X1;
  1372.  
  1373.         static int  init = 0;
  1374.         if  (init)  return;
  1375.         init = 1;
  1376.         INITHEAP( 0, 0, 0, 0 );
  1377.         init_constants();
  1378.         init_modules( "(scdebug SCHEME->C COMPILER 28sep90jfb)" );
  1379.         INITIALIZEVAR( U_TX( ADR( t1697 ) ), 
  1380.                        ADR( scdebug_trace_2dlevel_v ), 
  1381.                        _TSCP( 0 ) );
  1382.         INITIALIZEVAR( U_TX( ADR( t1698 ) ), 
  1383.                        ADR( scdebug_traced_2dprocs_v ), 
  1384.                        EMPTYLIST );
  1385.         INITIALIZEVAR( U_TX( ADR( t1699 ) ), 
  1386.                        ADR( scdebug_bpt_2dprocs_v ), EMPTYLIST );
  1387.         INITIALIZEVAR( U_TX( ADR( t1700 ) ), 
  1388.                        ADR( scdebug__2aargs_2a_v ), EMPTYLIST );
  1389.         INITIALIZEVAR( U_TX( ADR( t1701 ) ), 
  1390.                        ADR( scdebug__2aresult_2a_v ), EMPTYLIST );
  1391.         X1 = MAKEPROCEDURE( 2, 0, scdebug_l1045, EMPTYLIST );
  1392.         scexpand_install_2dexpander( c1044, X1 );
  1393.         INITIALIZEVAR( U_TX( ADR( t1710 ) ), 
  1394.                        ADR( scdebug_dotrace_v ), 
  1395.                        MAKEPROCEDURE( 1, 
  1396.                                       0, 
  1397.                                       scdebug_dotrace, EMPTYLIST ) );
  1398.         INITIALIZEVAR( U_TX( ADR( t1722 ) ), 
  1399.                        ADR( scdebug_tracer_v ), 
  1400.                        MAKEPROCEDURE( 2, 
  1401.                                       0, scdebug_tracer, EMPTYLIST ) );
  1402.         X1 = MAKEPROCEDURE( 2, 0, scdebug_l1128, EMPTYLIST );
  1403.         scexpand_install_2dexpander( c1127, X1 );
  1404.         INITIALIZEVAR( U_TX( ADR( t1780 ) ), 
  1405.                        ADR( scdebug_dountrace_v ), 
  1406.                        MAKEPROCEDURE( 1, 
  1407.                                       0, 
  1408.                                       scdebug_dountrace, EMPTYLIST ) );
  1409.         X1 = MAKEPROCEDURE( 2, 0, scdebug_l1211, EMPTYLIST );
  1410.         scexpand_install_2dexpander( c1210, X1 );
  1411.         INITIALIZEVAR( U_TX( ADR( t1812 ) ), 
  1412.                        ADR( scdebug_dobpt_v ), 
  1413.                        MAKEPROCEDURE( 1, 
  1414.                                       1, scdebug_dobpt, EMPTYLIST ) );
  1415.         INITIALIZEVAR( U_TX( ADR( t1827 ) ), 
  1416.                        ADR( scdebug_bpter_2dprocname_v ), 
  1417.                        sc_emptystring );
  1418.         INITIALIZEVAR( U_TX( ADR( t1828 ) ), 
  1419.                        ADR( scdebug_bpter_v ), 
  1420.                        MAKEPROCEDURE( 3, 
  1421.                                       0, scdebug_bpter, EMPTYLIST ) );
  1422.         X1 = MAKEPROCEDURE( 2, 0, scdebug_l1308, EMPTYLIST );
  1423.         scexpand_install_2dexpander( c1307, X1 );
  1424.         INITIALIZEVAR( U_TX( ADR( t1885 ) ), 
  1425.                        ADR( scdebug_dounbpt_v ), 
  1426.                        MAKEPROCEDURE( 1, 
  1427.                                       0, 
  1428.                                       scdebug_dounbpt, EMPTYLIST ) );
  1429.         INITIALIZEVAR( U_TX( ADR( t1898 ) ), 
  1430.                        ADR( scdebug_insertion_2dsort_v ), 
  1431.                        MAKEPROCEDURE( 3, 
  1432.                                       0, 
  1433.                                       scdebug_insertion_2dsort, 
  1434.                                       EMPTYLIST ) );
  1435.         INITIALIZEVAR( U_TX( ADR( t1926 ) ), 
  1436.                        ADR( scdebug_dobacktrace_v ), 
  1437.                        MAKEPROCEDURE( 4, 
  1438.                                       0, 
  1439.                                       scdebug_dobacktrace, EMPTYLIST ) );
  1440.         INITIALIZEVAR( U_TX( ADR( t2011 ) ), 
  1441.                        ADR( scdebug_backtrace_v ), 
  1442.                        MAKEPROCEDURE( 0, 
  1443.                                       1, 
  1444.                                       scdebug_backtrace, EMPTYLIST ) );
  1445.         INITIALIZEVAR( U_TX( ADR( t2018 ) ), 
  1446.                        ADR( scdebug_2derror_2a_ca4047fd_v ), 
  1447.                        FALSEVALUE );
  1448.         INITIALIZEVAR( U_TX( ADR( t2019 ) ), 
  1449.                        ADR( scdebug__2dhandler_7d8722d5_v ), 
  1450.                        MAKEPROCEDURE( 2, 
  1451.                                       1, 
  1452.                                       scdebug__2dhandler_7d8722d5, 
  1453.                                       EMPTYLIST ) );
  1454.         INITIALIZEVAR( U_TX( ADR( t2030 ) ), 
  1455.                        ADR( scdebug_on_2dinterrupt_v ), 
  1456.                        MAKEPROCEDURE( 1, 
  1457.                                       0, 
  1458.                                       scdebug_on_2dinterrupt, 
  1459.                                       EMPTYLIST ) );
  1460.         return;
  1461. }
  1462.